home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Programming
/
DiceSource
/
lib
/
alib
/
mathtranlib.a
< prev
next >
Wrap
Text File
|
1994-02-01
|
791b
|
45 lines
; autoinit if you ever reference MathBase
;
; (c)Copyright 1990, Matthew Dillon, All Rights Reserved
;
; can't use pc-relative between different code sections
; and cannot put string in autoinit section!
xdef _MathTransBase
xref _MathBase
xref __AutoFail0
_LVOOpenLibrary equ -552
_LVOCloseLibrary equ -414
section autoinit0,code
moveq.l #0,D0
lea mathtranname(pc),A1
jsr _LVOOpenLibrary(A6)
move.l D0,_MathTransBase(A4)
beq __AutoFail0
move.l _MathBase(A4),D0 ; DUMMY reference
bra i10
mathtranname dc.b 'mathtrans.library',0
ds.w 0
i10
section autoexit0,code
move.l _MathTransBase(A4),D0
beq l10
move.l D0,A1
jsr _LVOCloseLibrary(A6)
l10
section libbss,bss
_MathTransBase ds.l 1
END